home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / texts / amoszine / source / tips.amos / tips.amosSourceCode
AMOS Source Code  |  1993-09-09  |  541b  |  17 lines
  1. ' handy tips 
  2. 'To check if led is on/off 
  3. 'A=Btst(1,$BFE001) 
  4. 'If A=0 LED IS On  
  5. 'if a=-1 led is off
  6. ' is there a disk in the drive 
  7. 'Poke $BFD100,%10000 : Rem df0: turn drive on briefly  
  8. 'Poke $BFD100,%1000 : Rem df1: turn drive on briefly 
  9. 'A=Btst(2,$BFE001) 
  10. 'if a=-1 disk in drive 
  11. ' if a=0 no disk in drive
  12. ' is the disk write protected
  13. 'Poke $BFD100,%10000 : Rem df0: turn drive on briefly      
  14. 'Poke $BFD100,%1000 : Rem df1: turn drive on briefly 
  15. 'A=Btst(3,$BFE001) 
  16. ' if a=-1 means write enabled  
  17. ' if a=0  means write protected